Januari 13, 2021
| hangover | |||
|---|---|---|---|
| Predictors | Estimates | CI | p |
| (Intercept) | 4.32 | -7.78 – 16.42 | 0.457 |
| feelings | 0.18 | -1.51 – 1.87 | 0.822 |
| type [Pilsener] | -0.49 | -4.11 – 3.13 | 0.775 |
| type [Quad] | 2.01 | -4.76 – 8.79 | 0.534 |
| type [Triple] | -1.55 | -5.37 – 2.27 | 0.398 |
| type [White] | -0.45 | -5.59 – 4.68 | 0.853 |
| Observations | 20 | ||
| R2 / R2 adjusted | 0.102 / -0.219 | ||
Note. “Blond” beer is used as reference here
\[ \begin{aligned} Hangover_i &= 4.32 + Feelings_i*0.18 (Blond) \\ Hangover_i &= 4.32 + Feelings_i*0.18 - 0.49(Pilsener)\\ Hangover_i &= 4.32 + Feelings_i*0.18 + 2.01(Quad)\\ Hangover_i &= 4.32 + Feelings_i*0.18 -1.55(Triple)\\ Hangover_i &= 4.32 + Feelings_i*0.18-0.45(White) \end{aligned} \]
# data creation
set.seed(100)
type<-sample(c("White","Blond","Triple",
"Pilsener","Quad"),20,replace=TRUE)
feelings<-rnorm(20,7,1)
bottle<-sample(c("regular","large","small"),20,replace=TRUE)
hangover<-rnorm(20,5,2)
data<-data.frame(type,feelings,bottle,hangover)
Sohrabvandi, S., Mortazavian, A., & Rezaei, K. (2012). Health-related aspects of beer: A review. International Journal of Food Properties, 15(2), 350–373.